# quoc.leuse strict;
use warnings;
use diagnostics;

my $t = "wewq"."-"."sdfs\n";
print $t;
my @ts = split('-',$t);
$t = $ts[0]."-".$ts[1];
print $t;